home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 April / inter@ivo 1997-04.iso / cybint15 / bin / gforum.dxr / 00039.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  594 b   |  35 lines
  1. on exitFrame
  2.   global act
  3.   if act = 0 then
  4.     if rollOver(16) then
  5.       cursor([901, 902])
  6.       go("g")
  7.     else
  8.       HotSpots(3, 14)
  9.       HotSpots(17, 20)
  10.     end if
  11.   end if
  12.   if act = 1 then
  13.     if rollOver(22) or rollOver(23) then
  14.       cursor([901, 902])
  15.     else
  16.       cursor(-1)
  17.     end if
  18.   end if
  19.   if the visible of sprite 25 = 1 then
  20.     onVis(26)
  21.     InVis(25)
  22.     startTimer()
  23.     repeat while the timer < 5
  24.       nothing()
  25.     end repeat
  26.   else
  27.     if the visible of sprite 26 = 1 then
  28.       onVis(25)
  29.       InVis(26)
  30.     end if
  31.   end if
  32.   updateStage()
  33.   go(the frame)
  34. end
  35.